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MODULE COBSACC_TIME ( 
— = *1-005" ! file: COBACCTIM.632 


BEGIN 

: 

; 

MOSPLESLIIII IIIT IIIT IIT TTT iti ii titiiiiiitititt 
'@ 


ie COPYRIGHT | (o 1978 1980 1982, 1984 8 
ie DIGITAL T CORPORATION, MAYNARD. MASSACHUSETTS. 
is ALL RIGH He RESE AWE ED. 


!* THIS SOFTWARE IS cast eee UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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® 
ie TRANSFERRED. ‘ 
® 
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ie 

ie THE INF ORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBI 
is SOFTWARE ON EQUIPMENT WHICH | 
ie 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 
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00 '+¢ 
4 FACILITY: COBOL SUPPORT 
05 i ABSTRACT 

0 ‘ 

0 1 
00 ! 
09 ENVIRONMENT: Vax-11 User Mode 
0059 AUTHOR: MLJ , CREATION DATE: 16-JAN-1979 
9041 MODIFIED BY: 

5 i 1-001 = Original. MLJ 16-JAN-1979 

044 ! I= ¢ - Added boilerplate ang comments. RKR 18-JULY-1979 
045 ! 1- - Declare psects via | beory macro. RKR 25-AUG-1979 
| ! 1-004 = Change symbolic name of Lier geet file. RKR 1-0CT-79 
004 ! 1-005 = Cosmetic changes. RKR 1 

0048 ! 

0049 ten 

0050 

0051 '<BLF /PAGE> 
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} 
7 
? 
7 
7 
7? 
7? 
7 
7 
7 
: 


? 
5 
5 
; 
9 
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; SWITCHES 


SWITCHES ADDRESSING _MODE (EXTERNAL = 
' 


i LINKAGES 
i NONE 
7 TABLE OF CONTENTS: 
FORWARD ROUTINE 
COBSACC_TIME : NOVALUE ; 
| INCLUDE FILES 


REQUIRE "RTLIN: RTLPSECT® ; 
LIBRARY ‘RTLSTARLE’; 


i MACROS 
NONE 
EQUATED SYMBOLS 
NONE 
PSECT DECLARATIONS: 
DECLARE_PSECTS (COB) ; 


Ee Q9: ORs] YAR=IY L045 ye 


GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! Macros for declaring psects 


! Psects for COBS facility 


iinc682:1 


one 


H 9 
i005. °~ ME We=Sep-19be fostoes — ECdartLosedcopacctin. B82; ae 
39 § pete ROUTINE COBSACC_TIME(DST): NOVALUE= 
: ++ FUNCTIONAL DESCRIPTION 
2 § Returns time of day as HHMMSShh 
. FORMAL PARAMETERS: 
9 DST.wt.ds Address of string descriptor to receive time. 


IMPLICIT INPUTS: 

Time of day as supplied by SASCTIM 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


oo 


REF BLOCKC,BYTE]; Pointer to destination descriptor | 
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POPIPIPGPIPINIPIPININININININININININNNINININININININID) 2 2 2 OO OS SS OS SS Oe 
ROPIPNPININININIDD 9 9 OO | “DOCS OOCOCOCSCOCOOOOOOOOO 
DNAS WIN OO ONAVES WN O ODNAULS WN OO OONOUES Wh 


Se Se Se Se Se Ge Se Ge Fe Fe Se Ge Ge Fe Ge FH Se Se Se Ge Ge Se Se Se Ge Ge Se Ge Ge Se Se Ge Se Ge SF Se Se ee Se Se Se Se Fe Ge Se Ss we 
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TIMBUF : BLOCK(11,BYTE), ' Buffer for S$ASCTIM 
BUFFER: BLOCK(8 BYTE, ! Buffer for assembling output 
TIMDESC: VECTORL2); i Descriptor for TIMBU 
Brad 938 8 = 11; ' Set up descriptor 
TIMDESCL1) = TIMBUF; i 
SASCTIMCTIMBUF =TIMDESC VIFLG=1); i Get time | 
1 BUFFERCO,0,16,0) = .TIMBUFCO,0,16,0); ! Copy hours 
§ BUFFERL2,0,16,0) = .TIMBUFC3,0,16,0); ! Copy minutes 
BUFFERL4, 1868 = .TIMBUF §-0.16.8 3 ' Copy seconds 
34 BUFFERL6,0,16 = .TIMBUF 16,0); ! Copy hundredths 
35 cHSCOPY (6, BUFFER, %C* *, .DSTEDSCSW LENGTH], .DSTCDSCSA_POINTER)); 


- TITLE CoesAC CT IME 
IDENT \1-005\ 


~-EXTRN SYSSASCTIM 
~PSECT _SOBSCODE.NOWRT, SHR, PIC,2 
003C 00000 ~-ENTRY COBSACC_TIME, Save R2,R3,R4,R5 : 0182 | 


© 
1eosenctgee 9:00:41 yanett Blisg=52 V4in-742, Page 4 


5E 18 C2 8 SUBL2 #24, SP 3 
08 3 PUSHL # : 8 0 
AE 10 at E 000 MOVAB TiMOUF . TIMDESC+4 5 1) 
9 DD 0000C PUSHL @# ; 0222 
E er 0 CLRL (SP) é 
08 AE 99F 0001 PUSHAB TIMDESC F 
7E D4 0001 CLRL -(SP) 5 
000000006 00 04 F Bat CALLS #4, SYSSASCTIM : 
08 AE 19 AE 8B 1C MOVW TIMBUF , BUFFER 3 9333 | 
HA AE 1 AE 80 00021 MOVW TIMBUF+3, BUFFER+2 3 8 24 | 
AE 18 AE 86 026 MOVW TIMBUF +6, BUFFER+4 é 225 
Ha 1 AE 6B 8 i MOVW TIMBUF+9, BUFFER+6 3 8559 | 
04 AC 3 MOVL DST, R 3 
60 20 08 AE 08 C 00034 MOVCS5 #8, BUFFER, #32, (RO), a4(RO) : 
04 ~=«B0 0003A 5 
04 0003C¢ RET 3 0228 
; Routine Size: 61 bytes, Routine Base: _COBSCODE + 0000 
; 19 0229 1 | 
; «138 0230 0 END ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
; _COBSCODE 61 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics | 
: ecccccce Symbols -------- Pages Processing | 
: File Total Loaded Percent Mapped Time 
: ~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 5 0 581 00:00.8 
: COMMAND QUALIFIERS 
; BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LISS: COBACCTIM/0BJ=08J$ : COBACCTIN MSRC$: COBACCTIM/UPDATE=(ENH$: COBACCTIM 
3 Size: 61 code + 0 data bytes 
3; Run Time: 0:02.6 


cogsacc TIME 


: Elapsed Time: 
: Lines/CPU Min: 
ne Smenty A Bigg 


oer 7 


46 pages 


sed: 
; owe! Be ve. Complete 
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